home *** CD-ROM | disk | FTP | other *** search
XSetup plugin | 2002-04-24 | 3.8 KB | 110 lines |
- "FILE"="Xteq Systems X-Setup Plugin 6.0"
- "TYPE"="9"
- "COUNT"="4"
- "UIPATH"="Appearance\Interface\Icons"
- "NAME"="Icon Size: Large"
- "VERSION"="2.00"
- "LANGUAGE"="VBScript"
- "TEXT 1"="no text here"
- "DESCRIPTION 1"="Use this option to specify the size for the icons on your desktop. Please select only one item."
- "DESCRIPTION 2"="NOTE: this will also affect your Start Menu and the Large Icon view in Windows Explorer."
- "AUTHOR"="Xteq Systems"
- "CONTACTURL"="http://www.xteq.com/"
- "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
- "COMMENT 1"="Thanks to Neil R. Turner [totalxs@hotmail.com] for the Recommended Sizes and Start Menu/Explorer Notice."
- "COMMENT 2"="Thanks to Eugene Thrashevoy [EugeNet@Pisem.Net] for the help with this plug-in."
-
- iCount=18
- sV="HKCU\Control Panel\Desktop\WindowMetrics\Shell Icon Size"
-
- Sub Plugin_Initialize
- Call SetUIElement(1," Use Windows Default ")
- Call SetUIElement(2,"Display 16x16 pixel icons")
- Call SetUIElement(3,"Display 18x18 pixel icons")
- Call SetUIElement(4,"Display 20x20 pixel icons")
- Call SetUIElement(5,"Display 22x22 pixel icons")
- Call SetUIElement(6,"Display 24x24 pixel icons")
- Call SetUIElement(7,"Display 26x26 pixel icons")
- Call SetUIElement(8,"Display 28x28 pixel icons")
- Call SetUIElement(9,"Display 30x30 pixel icons")
- Call SetUIElement(10,"Display 32x32 pixel icons")
- Call SetUIElement(11,"Display 34x34 pixel icons")
- Call SetUIElement(12,"Display 36x36 pixel icons")
- Call SetUIElement(13,"Display 38x38 pixel icons")
- Call SetUIElement(14,"Display 40x40 pixel icons")
- Call SetUIElement(15,"Display 42x42 pixel icons")
- Call SetUIElement(16,"Display 44x44 pixel icons")
- Call SetUIElement(17,"Display 46x46 pixel icons")
- Call SetUIElement(18,"Display 48x48 pixel icons")
-
- i=RegReadValue(sV)
-
- if IsEmpty(i) then SetUIElementEx 1,true
-
- if IsNumeric(i) then
- if i=16 then Call SetUiElementEx(2,true)
- if i=18 then Call SetUiElementEx(3,true)
- if i=20 then Call SetUiElementEx(4,true)
- if i=22 then Call SetUiElementEx(5,true)
- if i=24 then Call SetUiElementEx(6,true)
- if i=26 then Call SetUiElementEx(7,true)
- if i=28 then Call SetUiElementEx(8,true)
- if i=30 then Call SetUiElementEx(9,true)
- if i=32 then Call SetUiElementEx(10,true)
- if i=34 then Call SetUiElementEx(11,true)
- if i=36 then Call SetUiElementEx(12,true)
- if i=38 then Call SetUiElementEx(13,true)
- if i=40 then Call SetUiElementEx(14,true)
- if i=42 then Call SetUiElementEx(15,true)
- if i=44 then Call SetUiElementEx(16,true)
- if i=46 then Call SetUiElementEx(17,true)
- if i=48 then Call SetUiElementEx(18,true)
- end if
-
- End Sub
-
- Sub Plugin_Apply(ElementIndex,ElementSubIndex)
- e=0
-
- for i=1 to iCount
- if GetUIElementEx(i)=true then e=e+1
- next
-
- if e>1 then
- Call MsgError("Please select only one item!")
- else
- i=empty
- if GetUIElementEx(1)=true then i=0
- if GetUIElementEx(2)=true then i=16
- if GetUIElementEx(3)=true then i=18
- if GetUIElementEx(4)=true then i=20
- if GetUIElementEx(5)=true then i=22
- if GetUIElementEx(6)=true then i=24
- if GetUIElementEx(7)=true then i=26
- if GetUIElementEx(8)=true then i=28
- if GetUIElementEx(9)=true then i=30
- if GetUIElementEx(10)=true then i=32
- if GetUIElementEx(11)=true then i=34
- if GetUIElementEx(12)=true then i=36
- if GetUIElementEx(13)=true then i=38
- if GetUIElementEx(14)=true then i=40
- if GetUIElementEx(15)=true then i=42
- if GetUIElementEx(16)=true then i=44
- if GetUIElementEx(17)=true then i=46
- if GetUIElementEx(18)=true then i=48
-
- if i>0 then
- Call RegWriteValue(sV,i,1)
- Call Logoff()
- else
- if RegValueExists(sV) then
- Call RegDeleteValue(sV)
- end if
- end if
- end if
-
- End Sub
-
- Sub Plugin_Terminate
- End Sub
-